home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.46 / pcq-crt / crtdemo.p < prev    next >
Text File  |  1995-04-18  |  768b  |  53 lines
  1. Program CrtDemo;
  2.  
  3. {$I "Include:Utils/Crt.i"}
  4.  
  5. PROCEDURE DrawShellGfx;
  6. VAR i, z, s : Integer;
  7. Begin
  8.  GetConSize(z,s);
  9.  
  10.  ClrScr;
  11.  CursorOff;
  12.  
  13.  SetTextStyle(TS_PLAIN,1,2);
  14.  TxtLine(1,1,s,z,' ');
  15.  TxtLine(s,1,1,z,' ');
  16.  
  17.  SetTextStyle(TS_BOLD,1,0);
  18.  Locate(z/2,s-13);
  19.  Write("Zeilen: ",z);
  20.  Locate(z/2+1,s-13);
  21.  Write("Spalten: ",s);
  22.  SetTextStyle(TS_PLAIN,1,0);
  23.  
  24.  For i:=1 to z do
  25.   Begin
  26.    Locate(i,1);
  27.    Write(i);
  28.   end;
  29.  
  30.  SetTextStyle(TS_PLAIN,1,3);
  31.  HorizTxtLine(s/2-8,2,16,' ');
  32.  TxtLine(s/2-8,2,s/2,10,' ');
  33.  TxtLine(s/2,10,s/2+8,2,' ');
  34.  
  35.  SetTextStyle(TS_PLAIN,1,1);
  36.  TxtRectFill(4,z/2-4,10,8,' ');
  37.  
  38.  SetTextStyle(TS_BOLD,2,3);
  39.  Locate(z-3,s/2-8);
  40.  Write("Press <RETURN>");
  41.  SetTextStyle(TS_PLAIN,0,0);
  42. end;
  43.  
  44.  
  45. Begin
  46.  DrawShellGfx;
  47.  
  48.  Readln;
  49.  
  50.  ResetConsole;
  51. end.
  52.  
  53.